home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / AmBoSLibOberon.lha / AmbosBeispiel.mod < prev    next >
Encoding:
Text File  |  1995-02-26  |  3.0 KB  |  87 lines
  1. (******************************************************************************)
  2. (* Programmname    : AmbosBeispiel                                            *)
  3. (* Programmversion : 1.000 (beta)                                             *)
  4. (* Datum           : 16.01.1995                                               *)
  5. (* Copyright       : 16.01.1995 (c) Andreas Leicht                            *)
  6. (* Beschreibung    :                                                          *)
  7. (*                 :                                                          *)
  8. (* Autor           : Andreas Leicht                                           *)
  9. (*                 : Seefahrerstr. 5                                          *)
  10. (*                 : 27721 Ritterhude                                         *)
  11. (* Telefon         : 0421 / 63 79 76                                          *)
  12. (* EMail           : Andi@doom.gun.de                                         *)
  13. (* Sprache         : Oberon 2                                                 *)
  14. (* Compiler        : Amiga Oberon v3.20d                                      *)
  15. (******************************************************************************)
  16.  
  17. (******************************************************************************)
  18. (* Geschichte : v1.000 (Beta) - 16.01.1995 - AO v3.20d                        *)
  19. (*            : Erste Umsetzung                                               *)
  20. (******************************************************************************)
  21.  
  22. MODULE AmbosBeispiel;
  23.  
  24. IMPORT  amb :=  AmbosLibOberon,
  25.         arg :=  Arguments,
  26.         con :=  Conversions,
  27.         sys :=  SYSTEM;
  28.  
  29. VAR
  30.   ExternInfo:   amb.externInfoPtr;
  31.   Argument:     ARRAY 255 OF CHAR;
  32.   Menue1:       amb.bbsMenu;
  33.   Menue2:       amb.bbsMenu;
  34.   Menue3:       amb.bbsMenu;
  35.   Menue4:       amb.bbsMenu;
  36.   Id:           LONGINT;
  37.   Zahl:         ARRAY 10 OF CHAR;
  38.   BoolWert:     BOOLEAN;
  39.  
  40. BEGIN
  41.   arg.GetArg(1,Argument);
  42.   ExternInfo  := amb.Open(Argument);
  43.  
  44.   IF ExternInfo = NIL THEN
  45.     HALT(0);
  46.   END;
  47.  
  48.   amb.PrintF("\f\r\n\r\nHallo %s aus %s !\r\n\r\n",ExternInfo.userName,ExternInfo.city);
  49.   amb.PutS("Das was ein PrintF-Demo\r\n\r\n\r\n\r\n");
  50.  
  51.  
  52.   Menue1.next      := sys.ADR(Menue2);
  53.   Menue1.name      := sys.ADR("_Hier");
  54.   Menue1.menuID    := 10;
  55.   Menue1.private1  := 0;
  56.   Menue1.private2  := 0;
  57.  
  58.   Menue2.next      := sys.ADR(Menue3);
  59.   Menue2.name      := sys.ADR("_kommt");
  60.   Menue2.menuID    := 20;
  61.   Menue2.private1  := 0;
  62.   Menue2.private2  := 0;
  63.  
  64.   Menue3.next      := sys.ADR(Menue4);
  65.   Menue3.name      := sys.ADR("_ein");
  66.   Menue3.menuID    := 30;
  67.   Menue3.private1  := 0;
  68.   Menue3.private2  := 0;
  69.  
  70.   Menue4.next      := NIL;
  71.   Menue4.name      := sys.ADR("_DemoMenü");
  72.   Menue4.menuID    := 40;
  73.   Menue4.private1  := 0;
  74.   Menue4.private2  := 0;
  75.  
  76.   Id := amb.Menu(sys.ADR(Menue1));
  77.  
  78.   con.IntToStringLeft(Id,Zahl);
  79.   amb.PutS("\r\n\r\nMenüID: ");
  80.   amb.PutS(Zahl);
  81.   amb.PutS("\r\n\r\n\r\n");
  82.  
  83. CLOSE
  84.   IF ExternInfo#NIL THEN amb.Close() END;
  85. END AmbosBeispiel.
  86.  
  87.